home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / spell / spell.bas next >
BASIC Source File  |  1993-11-30  |  4KB  |  90 lines
  1. 10 CLS:SCREEN@0
  2. 20 GOSUB *GRAFICK:CONSOLE 16,8
  3. 30 DIM FORIGN$(5000),JAPANESE$(5000),MIS%(50),RD%(50):TES=1:RANDOMIZE TIME:ON ERROR GOTO *ERROR
  4. 40 OPEN "Q:\T_OS\ENGLISH.DAT" FOR INPUT AS #1
  5. 50 CNT=0:TRUE=0:KO=0:LINE (140,200)-(210,250),PSET,0,BF:LINE (290,200)-(420,250),PSET,0,BF:LINE (560,200)-(630,250),PSET,0,BF
  6. 60 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT "ＤＡＴＡ読み込み中です｡しばらくお待ちください":PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
  7. 65 FOR I=0 TO 3
  8. 70 SYMBOL (140,234)," 0",1,1,7:SYMBOL (350,234)," 0",1,1,7
  9. 75 FOR I=1 TO 200
  10. 80 CNT=CNT+1:INPUT #1,FORIGN$(CNT),JAPANESE$(CNT)
  11. 90 NEXT I
  12. 100 CLOSE:GOSUB *RD:CLS 1
  13. 110 FOR I=1 TO 50
  14. 120 SYMBOL ((640-(KLEN(JAPANESE$(RD%(I)),2))*16)/2,132),"   "+JAPANESE$(RD%(I))+"   ",1,1,0
  15. 130 INPUT "答えを入力してください",A$:LINE (11,131)-(620,148),PSET,%13,BF
  16. 140 IF A$=FORIGN$(RD%(I)) THEN GOSUB *正解 ELSE GOSUB *不正解
  17. 145 LINE (140,200)-(210,250),PSET,0,BF:SYMBOL (140,234),STR$(I),1,1,7:LINE (560,200)-(630,250),PSET,0,BF:SYMBOL (560,234),KLEFT$(STR$(TRUE/I*100),5),1,1,7
  18. 150 NEXT I:GOSUB *結果:GOSUB *MISS:GOTO *CONTINUE
  19. 160 *正解
  20. 170 PRINT "あたりっ！！":TRUE=TRUE+1:LINE (350,200)-(420,250),PSET,0,BF:SYMBOL (350,234),STR$(TRUE),1,1,7:RETURN
  21. 180 *不正解
  22. 190 PRINT "残念！ 正解は";FORIGN$(RD%(I));"です":GOSUB *MIS:RETURN
  23. 210 *RD
  24. 220 FOR J=1 TO 50
  25. 230 HH%=0:RD%(J)=INT(RND*CNT)+1
  26. 240 IF RD%(J)=RD%(HH%) THEN GOTO 230
  27. 250 IF HH%=J-1 THEN HH%=1:NEXT J:RETURN
  28. 260 HH%=HH%+1:GOTO 240
  29. 270 *CONTINUE
  30. 280 PRINT "もう一回やる？(Y/N)":B$=INPUT$(1)
  31. 290 IF B$="N" OR B$="n" OR B$="Ｎ" THEN PRINT "ばいばい(T^T/)":END
  32. 300 IF B$="Y" OR B$="y" OR B$="Ｙ" THEN PRINT "よ～し､いい度胸だ":GOTO 40
  33. 310 GOTO 280
  34. 400 *GRAFICK
  35. 410 CLS:SCREEN@0
  36. 420 LINE (0,0)-(639,479),PSET,%12,BF
  37. 430 LINE (0,300)-(639,459),PSET,0,BF
  38. 440 LINE (0,0)-(639,100),PSET,%13,BF
  39. 450 LINE (0,0)-(639,3),PSET,%15,BF
  40. 460 LINE (0,0)-(3,100),PSET,%15,BF:SYMBOL (490,107),"ＬＥＶＥＬ",1,1,0:LINE (580,106)-(630,122),PSET,0,BF
  41. 465 SYMBOL (590,107),"中１",1,1,7
  42. 470 FOR I=0 TO 3
  43. 480 LINE (I,100-I)-(639,100-I),PSET,0
  44. 500 NEXT I
  45. 510 FOR I=0 TO 3
  46. 520 LINE (639-I,I)-(639-I,100),PSET,0
  47. 530 NEXT I
  48. 540 LINE (10,200)-(210,250),PSET,0,BF
  49. 550 LINE (220,200)-(420,250),PSET,0,BF
  50. 560 LINE (430,200)-(630,250),PSET,0,BF
  51. 570 LINE (140,200)-(210,250),PSET,0,BF:SYMBOL (140,234),STR$(I),1,1,7:LINE (560,200)-(630,250),PSET,0,BF:SYMBOL (560,234),KLEFT$(STR$(TRUE/I*100),5),1,1,7
  52. 580 LINE (10,130)-(630,150),PSET,%13,BF
  53. 590 LINE (10,130)-(630,150),PSET,0,B
  54. 600 SYMBOL (200,25),"すぺるげった～☆  Ｖｅｒ　１．００",1,1,0
  55. 610 SYMBOL (310,50),"Ｂｙ",1,1,0:SYMBOL (380,50),"バグ",1,1,%4,0,PSET,4
  56. 620 SYMBOL (12,234),"問題数",1,1,7
  57. 630 SYMBOL (222,234),"正解数",1,1,7
  58. 640 SYMBOL (432,234),"正解率",1,1,7
  59. 650 SYMBOL (12,106),"-問題-",1,1,0
  60. 660 SYMBOL (470,155),"を英語に訳し入力せよ",1,1,0
  61. 670 SYMBOL (12,280),"-解答欄-",1,1,0
  62. 680 SYMBOL (150,280),"・解答は半角のアルファベットで入力してください",1,1,0
  63. 690 SYMBOL (12,180),"-成績-",1,1,0:RETURN
  64. 700 *MISS
  65. 710 PRINT "あなたが間違えた問題を下に挙げます"
  66. 715 PRINT "もう一回やりましょう"
  67. 720 FOR I=1 TO 50-TRUE
  68. 730 PRINT "問題:";JAPANESE$(MIS%(I))
  69. 735 INPUT A$
  70. 736 IF A$=FORIGN$(MIS%(I)) THEN GOSUB *TRUE ELSE GOTO *BAD
  71. 738 NEXT I:RETURN
  72. 740 *MIS
  73. 750 KO=KO+1
  74. 760 MIS%(KO)=RD%(I):RETURN
  75. 770 *TRUE
  76. 780 PRINT "正解！！"
  77. 790 RETURN
  78. 800 *BAD
  79. 810 PRINT "不正解！";"正解は";FORIGN$(MIS%(I));"です"
  80. 820 PRINT "もう一回やってみましょう":GOTO 730
  81. 830 *結果
  82. 840 IF TRUE<10 THEN PRINT "げっ";TRUE;"問しかあってない～ ひどい ひどすぎる～":PRINT "赤点です！！！":PRINT "-補習-":RETURN
  83. 850 IF TRUE<20 THEN PRINT "かなりひどいぞ～";TRUE;"問正解です":PRINT "赤点だ～！！":PRINT "-補習-":RETURN
  84. 860 IF TRUE<30 THEN PRINT "あんまし､よくないな～";TRUE;"問正解です":PRINT "赤点だよ！":PRINT "-補習-":RETURN
  85. 870 IF TRUE<40 THEN PRINT "そうそうその調子";TRUE;"問正解です":PRINT "-復習-":RETURN
  86. 880 IF TRUE<50 THEN PRINT "すごいっ！！";TRUE;"問正解だねっ！！":PRINT "-復習-":RETURN
  87. 890 IF TRUE=50 THEN PRINT "すごいっ！！ 全問正解だねっ！！":RETURN
  88. 900 *ERROR
  89. 910 IF ERL=40 THEN OPEN "A:SPELL.DAT" FOR INPUT AS #1:RESUME NEXT
  90.